QRZ! Ham Radio 6/QRZ Ham Radio Callsign Database - Volume 6.iso/pc/files/mac/varilogs.hqx/Logs/Logging Stacks USA/Contester/background_2737.txt

Text File | 1987-11-25 | 12.3 KB | 540 lines

-- background: 2737 from stack: in
-- bmap block id: 3261
-- flags: 0000
-- background id: 0
-- name: QSO
----- HyperTalk script -----
on closeField
  get chartonum of field "precedence" -- checks for uppercase letter
  if it > 90 then
    subtract 32 from it
    put numtochar(it) into field "precedence"
  end if
  if field "Frequency" is empty then exit closeField
  get field "Frequency"
  set numberFormat to "0.000"
  multiply it by 1
  put it into field "Frequency"
  put empty into band
  put field "Frequency" into freq
  if freq >= 1.8 and freq <= 2.0 then put 160 into band
  if freq >= 3.5 and freq <= 3.75 then put 80 into band
  if freq > 3.75 and freq <= 3.4 then put 75 into band
  if freq >= 7.0 and freq <= 7.3 then put 40 into band
  if freq >= 10.1 and freq <= 10.15 then put 30 into band
  if freq >= 14.0 and freq <= 14.35 then put 20 into band
  if freq >= 21.0 and freq <= 21.45 then put 15 into band
  if freq >= 24.89 and freq <= 24.99 then put 12 into band
  if freq >= 28.0 and freq <= 29.7 then put 10 into band
  if freq >= 50.0 and freq <= 54.0 then put 6 into band
  if freq >= 144.0 and freq <= 148.0 then put 2 into band
  if band is empty then
    beep
    show message
    put "Frequency out of amateur bands!" into message
    exit closeField
  end if
  put band && "Meters" into field "band"
end closeField




-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=145 top=247 right=270 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to prev card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=182 top=247 right=270 bottom=207
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 46 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=221 top=83 right=101 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hisNumber


-- part 47 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=298 top=83 right=101 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: precedence


-- part 19 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=111 top=33 right=50 bottom=197
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: station


-- part 23 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=67 top=105 right=123 bottom=115
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: check


-- part 22 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=68 top=83 right=101 bottom=106
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: QTH


-- part 21 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=263 top=33 right=51 bottom=326
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Frequency


-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=109 top=247 right=274 bottom=139
-- title width / last selected line: 0
-- icon id / first selected line: 20689 / 20689
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 41 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=220 top=118 right=136 bottom=266
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mode


-- part 27 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=300 top=139 right=268 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: comments


-- part 18 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=214 top=59 right=77 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Time


-- part 17 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=49 top=59 right=78 bottom=173
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Zulu Date


-- part 29 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=318 top=293 right=315 bottom=418
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Import old log
----- HyperTalk script -----
on mouseUp
  ask "Import text from which file?"
  if it is empty then exit mouseUp
  put it into fileName
  open file fileName
  doMenu "New Card"
  repeat
    read from file fileName until return -- get first record
    if it is empty then
      doMenu "Delete Card"
      close file fileName
      exit mouseUp
    end if
    put it into data
    repeat with i = 1 to the number of fields
      if first word of data is empty or first word of data is return
      then exit repeat -- stop
      put offset(tab,data) into num --gets field field (until tab)
      if num is 0 then -- checks for last field of record
        put data into field i -- writes last field
        exit repeat
      end if
      put char 1 to (num - 1) of data into field i -- writes first field
      delete char 1 to num of data -- gets rid of field
    end repeat
    doMenu "New Card"
  end repeat
end mouseUp



-- part 31 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=383 top=53 right=72 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Local Time


-- part 34 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=21 top=146 right=168 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Entry
----- HyperTalk script -----
on mouseUp
  get the value of field "myNumber"
  add 1 to it
  put it into nr
  go to last card
  doMenu "New Card"
  put nr into field "myNumber"
  global timezone
  global zfactor
  get the time
  put it && timezone into field "Local Time"
  convert it to secs
  add zfactor to it
  convert it to time
  put it && "Z" into field "Zulu Time"
  tabKey
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=26 top=248 right=300 bottom=95
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 36 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=86 right=104 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Zulu Time


-- part 38 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=31 top=207 right=229 bottom=81
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dupe
----- HyperTalk script -----
on mouseUp
  show message
  global duper
  put empty into duper
  repeat for the number of cards - 1
    if duper is empty then go to first card of background "QSO"
    else go to card duper + 1
    put field "Station" into callchecker
    put id of this card into cardchecker
    put number of this card into duper
    if duper is 1 then exit repeat
    put field "band" into bander
    find callchecker
    find callchecker
    put id of this card into dupechecker
    put field "band" into bandchecker
    if cardchecker is dupechecker and bander is bandchecker then
      put "OK" && duper into message
    else
      beep
      put "Duplicate, card" && duper into field "dupe"
      go to card duper
    end if
  end repeat
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=80 top=175 right=198 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Log
----- HyperTalk script -----
on mouseUp
  global timezone
  global zfactor
  get the time
  convert it to secs
  add zfactor to it
  convert it to time
  put it && "Z" into field "Time"
  convert it to secs
  convert it to date
  put it && "(UTC)" into field "Zulu Date"
  put field frequency into freq
  put empty into band
  if freq is empty then exit mouseUp
  if freq >= 1.8 and freq <= 2.0 then put 160 into band
  if freq >= 3.5 and freq <= 3.75 then put 80 into band
  if freq >= 3.751 and freq <= 4.0 then put 75 into band
  if freq >= 7.0 and freq <= 7.3 then put 40 into band
  if freq >= 10.1 and freq <= 10.15 then put 30 into band
  if freq >= 14.0 and freq <= 14.35 then put 20 into band
  if freq >= 21.1 and freq <= 21.45 then put 15 into band
  if freq >= 24.89 and freq <= 24.99 then put 12 into band
  if freq >= 28.0 and freq <= 29.7 then put 10 into band
  if freq >= 50.0 and freq <= 54.0 then put 6 into band
  if freq >= 144.0 and freq <= 148.0 then put 2 into band
  if band is empty then
    beep
    put "Frequency out of bounds!" into message
    exit mouseUp
  end if

  put band && "Meters" into field "band"
end mouseUp



-- part 40 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=79 top=210 right=229 bottom=210
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: dupe


-- part 42 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=198 top=140 right=158 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: band


-- part 43 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=220 top=248 right=268 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Stars
----- HyperTalk script -----
on mouseUp
  doMenu "Stars1.6"
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=17 top=176 right=198 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Start
----- HyperTalk script -----
on mouseUp
  global timezone
  global zfactor
  get the time
  put it && timezone into field "Local Time"
  convert it to secs
  add zfactor to it
  convert it to time
  put it && "Z" into field "Zulu Time"
end mouseUp



-- part 45 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=148 top=83 right=101 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: myNumber